home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / _TR_DTOL.C < prev    next >
C/C++ Source or Header  |  1990-10-22  |  711b  |  39 lines
  1. /*********
  2. * _TR_DTOL.C
  3. *
  4. * by Ralph Davis
  5. *
  6. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  7. *
  8. *  Syntax:  _tr_dtol(<expN>)      <expN> = double precision number 
  9. *  Return:  <expN> as a 32-bit long integer
  10. *
  11. *  C Syntax:
  12. *        long _tr_dtol(n)
  13. *        double n;
  14. *
  15. *  Assembler Usage:
  16. *
  17. *        MOV   AX,<high byte>
  18. *        MOV   BX,<next byte>
  19. *        MOV   CX,<next byte>
  20. *        MOV   DX,<low byte>
  21. *        PUSH  AX
  22. *        PUSH  BX
  23. *        PUSH  CX
  24. *        PUSH  DX
  25. *        CALL  _TR_DTOL
  26. *        ADD   SP,8
  27. *
  28. *     Returns 32-bit integer in AX:BX
  29. *
  30. *********/
  31.  
  32. #include "trlib.h"
  33.  
  34. long _tr_dtol(n)
  35. double n;
  36. {
  37.    return ((long) n);
  38. }
  39.